'Copyright 2019 Esri

'Licensed under the Apache License, Version 2.0 (the "License");
'you may not use this file except in compliance with the License.
'You may obtain a copy of the License at

'    http://www.apache.org/licenses/LICENSE-2.0

'Unless required by applicable law or agreed to in writing, software
'distributed under the License is distributed on an "AS IS" BASIS,
'WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

'See the License for the specific language governing permissions and
'limitations under the License.
Imports Microsoft.VisualBasic
Imports System
Imports ESRI.ArcGIS.Controls

Namespace NAEngine
	Public Class CommonFunctions
		Private Sub New()
		End Sub
		Public Shared Function GetTheEngineNetworkAnalystEnvironment() As IEngineNetworkAnalystEnvironment
            ' The ArcGIS Network Analyst extension environment is a singleton, and must be accessed using the System.Activator
			Dim t As System.Type = System.Type.GetTypeFromProgID("esriControls.EngineNetworkAnalystEnvironment")
            Dim naEnv As IEngineNetworkAnalystEnvironment = TryCast(System.Activator.CreateInstance(t), IEngineNetworkAnalystEnvironment)
			Return naEnv
		End Function
	End Class
End Namespace
